home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / BandeAnnonce.asc < prev    next >
Text File  |  1980-03-03  |  1KB  |  44 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Command
  12. '  -Wb Wind Open 
  13. '  -Wb Current Screen  
  14. '  -Wb Wind Base 
  15. '  -Wb Wind Title
  16. '  -Wb Wind Close
  17. '  -Hard Mouse Key 
  18. '
  19. Global B,A,C
  20. '
  21. Wb Wind Open Wb Current Screen To 0,0,640,11,$202
  22. WIND=Wb Wind Base
  23. '
  24. B$=String$(" ",80)
  25. D$=" Salut le peuple..."+String$(" ",10)
  26. D$=D$+"Voici un exemple de bande-annonce installé dans le Workbench, pour avoir une personnalisation au maximum..."+String$(" ",10)
  27. D$=D$+"Mémoire graphique (Chip):"+Str$(Chip Free)+", Mémoires autres (Fast):"+Str$(Fast Free)+String$(" ",10)
  28. D$=D$+"Sélectionnez la fenêtre, et cliquez le bouton de droite..."+String$(" ",40)
  29. '
  30. Amos To Back 
  31. '
  32. While Hard Mouse Key<>2
  33.    R$=Mid$(D$,UI,1)
  34.    Add UI,1,1 To Len(D$)
  35.    TY$=Right$(B$+TY$+R$,80)
  36.    Multi Wait 
  37.    Wb Wind Title WIND To Varptr(TY$),0
  38.    Wait 5
  39.    Wait Vbl 
  40. Wend 
  41. '
  42. Wb Wind Close WIND
  43. Amos To Front 
  44.